ACTION LIST

Otázka od: LUKES Václav

11. 11. 2002 13:55

Ahoj,

diky vsem za rady, pomohly.
Mam ale jeste jeden problem. Potrebuji udelat PROGRAMOVE DBGrid a po
DoubleClicku na nem udelat bud ModelaResult := mrOK nebo volat Action.

Diky

V.

Odpovedá: ing. Jan Fiala

11. 11. 2002 10:44

Formular, na nej dej 3 tlacitka a do obsluhy prvniho prirad
TForm1.Button1Click;
Do uses je treba pridat "ActnList"

procedure TForm1.Action1Execute(Sender: TObject);
begin
  ShowMessage('Akce1');
end;

procedure TForm1.Action2Execute(Sender: TObject);
begin
  ShowMessage('Akce2');
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  al: TActionList;
  Action1, Action2: TAction;
begin
  al := TActionList.Create(Self);
  Action1 := TAction.Create(al);
  Action1.ActionList := al;
  Action1.Caption := 'Akce 1';
  Action1.OnExecute := Action1Execute;
  Action2 := TAction.Create(al);
  Action2.Caption := 'Akce 2';
  Action2.ActionList := al;
  Action2.OnExecute := Action2Execute;
  { ted jeste vyzkousime }
  Button2.Action := Action1;
  Button3.Action := Action2;
end;

--
ing. Jan Fiala
mailto:jan.fiala@iol.cz

11.11.2002 LUKES Václav:
> Ahoj,

> prosim o radu. Potreboval bych PROGRAMOVE vytvorit ActionList se dvema
Action.

> Diky moc

> V.